ContourPlot[( sqrt(x/3) (2.62079 10^-14 sqrt(1.32235 10^27 x y 2.96509 10^26)-0.451286) (0.460896-2.6766 10^-14 sqrt(1.32235 10^27 x y 2.96509x10^26)) 1.02774 x y )/(x y)=1,{x,0,40},{y,4,15}]